﻿
Partial Class Dialogos_frmPopUpMotivoCierre
    Inherits System.Web.UI.Page

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Introducir aquí el código de usuario para inicializar la página
        Response.Cache.SetCacheability(HttpCacheability.NoCache)
        Response.Cache.SetExpires(DateTime.Now().Subtract(New TimeSpan(1, 0, 0)))
        Response.Cache.SetLastModified(DateTime.Now)
        Response.Cache.SetAllowResponseInBrowserHistory(False)
        If Not Me.IsPostBack Then
            fnRecuperarValoresURL()
            fnPrepararPagina()
        End If
    End Sub

    Private Sub fnRecuperarValoresURL()
        Dim Inhabilitar As Integer = Request.QueryString("Inhabilitar")
        If Inhabilitar = 1 Then
            Me.txtMotivoDesaprobacion.Enabled = False
            Me.btnAceptar.Disabled = True
            Me.btnCancelar.Disabled = True
        End If
    End Sub

    Private Sub fnPrepararPagina()
        Throw New NotImplementedException
    End Sub

End Class
